package body Strings is

   --------------------
   -- image_individu --
   --------------------

   function image_individu (n : individu) return string is
   begin
      return n;
   end image_individu;

   -----------------
   -- image_texte --
   -----------------

   function image_texte (t : texte) return string is
   begin
      return t;
   end image_texte;

   function image_cercle(n : cercle) return string is
   begin
      return n;
   end image_cercle;

   function creerIndividu return individu is
   begin
      declare newIndividu : individu := saisir("");
      begin
         return newIndividu;
      end;
   end creerIndividu;

   function creerCercle return cercle is
   begin
      declare newCercle : cercle := saisir("");
      begin
         return newCercle;
      end;
   end creerCercle;

   function creerTexte return texte is
   begin
      declare newTexte : texte := saisir("");
      begin
         return newTexte;
      end;
   end creerTexte;

end Strings;
